unit uConfiguraEtiqueta;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Buttons;

type
  TfrmConfiguraEtiqueta = class(TForm)
    pnlPrincipal: TPanel;
    pnlEtiqueta1: TPanel;
    btnOk: TSpeedButton;
    pnlEtiqueta2: TPanel;
    pnlEtiqueta3: TPanel;
    pnlEtiqueta4: TPanel;
    pnlEtiqueta5: TPanel;
    pnlEtiqueta6: TPanel;
    pnlEtiqueta7: TPanel;
    pnlEtiqueta8: TPanel;
    pnlEtiqueta9: TPanel;
    pnlEtiqueta0: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure pnlEtiqueta1Click(Sender: TObject);
    procedure btnOkClick(Sender: TObject);
    procedure pnlEtiqueta0Click(Sender: TObject);
    procedure pnlEtiqueta2Click(Sender: TObject);
    procedure pnlEtiqueta3Click(Sender: TObject);
    procedure pnlEtiqueta4Click(Sender: TObject);
    procedure pnlEtiqueta5Click(Sender: TObject);
    procedure pnlEtiqueta6Click(Sender: TObject);
    procedure pnlEtiqueta7Click(Sender: TObject);
    procedure pnlEtiqueta8Click(Sender: TObject);
    procedure pnlEtiqueta9Click(Sender: TObject);

  private
    { Private declarations }
    procedure DeselecionaTodosOsPaineis();
    procedure SelecionaPainel(var pnl:TPanel);

  public
    { Public declarations }
    Linha:integer;
    Coluna:integer;
    Selecionado:integer;

  end;

var
  frmConfiguraEtiqueta: TfrmConfiguraEtiqueta;

implementation

{$R *.dfm}

procedure TfrmConfiguraEtiqueta.SelecionaPainel(var pnl: TPanel);
begin
  pnl.BevelInner := bvLowered;
  pnl.BevelOuter := bvNone;
  pnl.Color := clMoneyGreen;

  Self.Linha := pnl.Tag div 2;
  Self.Coluna := pnl.Tag mod 2;

end;

procedure TfrmConfiguraEtiqueta.DeselecionaTodosOsPaineis;
var
  i:integer;
  subNome:String;

begin
  for i := 0 to ComponentCount - 1 do begin
    if (Components[i] is TPanel) then begin
      subNome := TPanel(Components[i]).Name;
      if (Copy(subNome, 1, Length(subNome) - 1) = 'pnlEtiqueta') then begin
        TPanel(Components[i]).BevelInner := bvNone;
        TPanel(Components[i]).BevelOuter := bvRaised;
        TPanel(Components[i]).Color := $00F1F4F5;

      end;

    end;

  end;

end;

procedure TfrmConfiguraEtiqueta.FormCreate(Sender: TObject);
begin
  //
end;

procedure TfrmConfiguraEtiqueta.FormDestroy(Sender: TObject);
begin
  //
end;

procedure TfrmConfiguraEtiqueta.FormActivate(Sender: TObject);
begin
  SelecionaPainel(pnlEtiqueta0);
end;

procedure TfrmConfiguraEtiqueta.pnlEtiqueta0Click(Sender: TObject);
begin
  DeselecionaTodosOsPaineis;
  SelecionaPainel(pnlEtiqueta0);
end;

procedure TfrmConfiguraEtiqueta.pnlEtiqueta1Click(Sender: TObject);
begin
  DeselecionaTodosOsPaineis;
  SelecionaPainel(pnlEtiqueta1);
end;

procedure TfrmConfiguraEtiqueta.pnlEtiqueta2Click(Sender: TObject);
begin
  DeselecionaTodosOsPaineis;
  SelecionaPainel(pnlEtiqueta2);
end;

procedure TfrmConfiguraEtiqueta.pnlEtiqueta3Click(Sender: TObject);
begin
  DeselecionaTodosOsPaineis;
  SelecionaPainel(pnlEtiqueta3);
end;

procedure TfrmConfiguraEtiqueta.pnlEtiqueta4Click(Sender: TObject);
begin
  DeselecionaTodosOsPaineis;
  SelecionaPainel(pnlEtiqueta4);
end;

procedure TfrmConfiguraEtiqueta.pnlEtiqueta5Click(Sender: TObject);
begin
  DeselecionaTodosOsPaineis;
  SelecionaPainel(pnlEtiqueta5);
end;

procedure TfrmConfiguraEtiqueta.pnlEtiqueta6Click(Sender: TObject);
begin
  DeselecionaTodosOsPaineis;
  SelecionaPainel(pnlEtiqueta6);
end;

procedure TfrmConfiguraEtiqueta.pnlEtiqueta7Click(Sender: TObject);
begin
  DeselecionaTodosOsPaineis;
  SelecionaPainel(pnlEtiqueta7);
end;

procedure TfrmConfiguraEtiqueta.pnlEtiqueta8Click(Sender: TObject);
begin
  DeselecionaTodosOsPaineis;
  SelecionaPainel(pnlEtiqueta8);
end;

procedure TfrmConfiguraEtiqueta.pnlEtiqueta9Click(Sender: TObject);
begin
  DeselecionaTodosOsPaineis;
  SelecionaPainel(pnlEtiqueta9);
end;

procedure TfrmConfiguraEtiqueta.btnOkClick(Sender: TObject);
begin
  Close;
end;

end.
